home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs38.d81 / qwkrr128.sfx / autoexec next >
Text File  |  1990-02-12  |  191b  |  12 lines
  1. IF (PEEK(215) AND 128) THEN FAST
  2. BANK15:Y=PEEK(57094):POKE 57094,Y+1:POKE 7136,ABS(PEEK(57094)-Y)
  3. Z:SETRAM 1,$D000
  4. Z:GETRAM RAMDISK
  5. TEXT
  6. TYPE INTRO1
  7. GETKEY
  8. TYPE INTRO2
  9. GETKEY
  10. TYPE INTRO3
  11. ARC
  12.